home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / LAVIUPD3.ZIP / LAVI13.ZIP / PHASOR.RTN < prev    next >
Text File  |  1994-01-05  |  774b  |  38 lines
  1. ; Makes a phasor sound over the speaker.  Thanks to Gompa for this.
  2.  
  3. shots equ 60
  4.  
  5.         mov cx,shots
  6. phasor:
  7.         push    cx
  8.  
  9.         cli
  10.         mov     dx,12000
  11.         sub     dx,cs:5000
  12.         mov     bx,100
  13.         mov     al,10110110b
  14.         out     43h,al
  15. backx:
  16.         mov     ax,bx
  17.         out     42h,al
  18.         mov     al,ah
  19.         out     42h,al
  20.         in      al,61h
  21.         mov     ah,0
  22.         or      ax,00000011b
  23.         out     61h,al
  24.         inc     bx
  25.         mov     cx,15
  26. loopx:
  27.         loop    loopx
  28.         dec     dx
  29.         cmp     dx,0
  30.         jnz     backx
  31.         in      al,61h
  32.         and     al,11111100b
  33.         out     61h,al
  34.         sti
  35.         pop     cx
  36.         loop    phasor
  37.         ret
  38.